
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tCursos



# Region "tArea_Cursos"

		private mtArea_Cursos As New tArea_Cursos

		Public Property tArea_Cursos As tArea_Cursos
        Get
                mtArea_Cursos = mtArea_Cursos.TraerFiltradoListOf("IdAreaCurso", Me.IdAreaCurso).Item(0)
        Return mtArea_Cursos
        End Get
        Set
             If ((mtArea_Cursos Is Nothing) Or (Me.tArea_Cursos.Equals(value) = False)) Then
                If Not (Me.tArea_Cursos Is Nothing)
	               Dim oldtArea_Cursos As tArea_Cursos = Me.tArea_Cursos
                   Me.mtArea_Cursos = Nothing
                   oldtArea_Cursos.RemoveListatCursos(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtArea_Cursos = value
                   Me.tArea_Cursos.AddListatCursos(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tConvenios"

		private mtConvenios As New tConvenios

		Public Property tConvenios As tConvenios
        Get
                mtConvenios = mtConvenios.TraerFiltradoListOf("IdConvenio", Me.IdConvenio).Item(0)
        Return mtConvenios
        End Get
        Set
             If ((mtConvenios Is Nothing) Or (Me.tConvenios.Equals(value) = False)) Then
                If Not (Me.tConvenios Is Nothing)
	               Dim oldtConvenios As tConvenios = Me.tConvenios
                   Me.mtConvenios = Nothing
                   oldtConvenios.RemoveListatCursos(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtConvenios = value
                   Me.tConvenios.AddListatCursos(Me)
            	End If
             End If
        End Set
       End Property

# End Region
# Region "tCursos_Deseados_x_Persona"
	private mlistatCursos_Deseados_x_Persona As New List (Of tCursos_Deseados_x_Persona)
Public Property ListatCursos_Deseados_x_Persona As System.Collections.Generic.List(Of tCursos_Deseados_x_Persona)
Get
dim mtCursos_Deseados_x_Persona As New tCursos_Deseados_x_Persona
mlistatCursos_Deseados_x_Persona =mtCursos_Deseados_x_Persona.TraerFiltradoListOf("IdCurso",Me.IdCurso)
Return mlistatCursos_Deseados_x_Persona
End Get
Set
RemoveAllListatCursos_Deseados_x_Persona()
If Not (Value Is Nothing) Then
Dim otCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona
	For Each otCursos_Deseados_x_Persona in Value
		AddListatCursos_Deseados_x_Persona(otCursos_Deseados_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCursos_Deseados_x_Persona(newtCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona)
	If (mlistatCursos_Deseados_x_Persona Is Nothing) Then
		mlistatCursos_Deseados_x_Persona = new System.Collections.Generic.List(Of tCursos_Deseados_x_Persona)
	End If
	If Not mlistatCursos_Deseados_x_Persona.Contains(newtCursos_Deseados_x_Persona) Then
		mlistatCursos_Deseados_x_Persona.Add(newtCursos_Deseados_x_Persona)
		newtCursos_Deseados_x_Persona.tCursos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCursos_Deseados_x_Persona(oldtCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona)
	If (mlistatCursos_Deseados_x_Persona.Contains(oldtCursos_Deseados_x_Persona)) Then
		mlistatCursos_Deseados_x_Persona.Remove(oldtCursos_Deseados_x_Persona)
		oldtCursos_Deseados_x_Persona.tCursos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCursos_Deseados_x_Persona()
	If Not (mlistatCursos_Deseados_x_Persona Is Nothing)
		Dim tmp_listatCursos_Deseados_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCursos_Deseados_x_Persona As tCursos_Deseados_x_Persona
		For Each oldtCursos_Deseados_x_Persona in mlistatCursos_Deseados_x_Persona
			tmp_listatCursos_Deseados_x_Persona.Add(oldtCursos_Deseados_x_Persona)
		Next
	mlistatCursos_Deseados_x_Persona.Clear()
	For Each oldtCursos_Deseados_x_Persona in tmp_listatCursos_Deseados_x_Persona
		oldtCursos_Deseados_x_Persona = Nothing
	Next
	tmp_listatCursos_Deseados_x_Persona.Clear()
	End If
End Sub

# End Region
# Region "tCursos_x_Persona"
	private mlistatCursos_x_Persona As New List (Of tCursos_x_Persona)
Public Property ListatCursos_x_Persona As System.Collections.Generic.List(Of tCursos_x_Persona)
Get
dim mtCursos_x_Persona As New tCursos_x_Persona
mlistatCursos_x_Persona =mtCursos_x_Persona.TraerFiltradoListOf("IdCurso",Me.IdCurso)
Return mlistatCursos_x_Persona
End Get
Set
RemoveAllListatCursos_x_Persona()
If Not (Value Is Nothing) Then
Dim otCursos_x_Persona As tCursos_x_Persona
	For Each otCursos_x_Persona in Value
		AddListatCursos_x_Persona(otCursos_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCursos_x_Persona(newtCursos_x_Persona As tCursos_x_Persona)
	If (mlistatCursos_x_Persona Is Nothing) Then
		mlistatCursos_x_Persona = new System.Collections.Generic.List(Of tCursos_x_Persona)
	End If
	If Not mlistatCursos_x_Persona.Contains(newtCursos_x_Persona) Then
		mlistatCursos_x_Persona.Add(newtCursos_x_Persona)
		newtCursos_x_Persona.tCursos = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCursos_x_Persona(oldtCursos_x_Persona As tCursos_x_Persona)
	If (mlistatCursos_x_Persona.Contains(oldtCursos_x_Persona)) Then
		mlistatCursos_x_Persona.Remove(oldtCursos_x_Persona)
		oldtCursos_x_Persona.tCursos = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCursos_x_Persona()
	If Not (mlistatCursos_x_Persona Is Nothing)
		Dim tmp_listatCursos_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCursos_x_Persona As tCursos_x_Persona
		For Each oldtCursos_x_Persona in mlistatCursos_x_Persona
			tmp_listatCursos_x_Persona.Add(oldtCursos_x_Persona)
		Next
	mlistatCursos_x_Persona.Clear()
	For Each oldtCursos_x_Persona in tmp_listatCursos_x_Persona
		oldtCursos_x_Persona = Nothing
	Next
	tmp_listatCursos_x_Persona.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tCursos)
            Dim dtDatos As DataTable
            Dim listatCursos As New List(Of tCursos)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCursos As New tCursos
				mtCursos.IdCurso = CType(dr.Item("IdCurso"),Integer)
				mtCursos.Traer_objeto()
            	listatCursos.Add( mtCursos)
    		Next dr
Return listatCursos
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tCursos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatCursos As New List(Of tCursos)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCursos As New tCursos
				mtCursos.IdCurso = CType(dr.Item("IdCurso"),Integer)
				mtCursos.Traer_objeto()
            	listatCursos.Add( mtCursos)
    		Next dr
Return listatCursos
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tCursos)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatCursos As New List(Of tCursos)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCursos As New tCursos
				mtCursos.IdCurso = CType(dr.Item("IdCurso"),Integer)
				mtCursos.Traer_objeto()
            	listatCursos.Add( mtCursos)
    		Next dr
Return listatCursos
End Function
# End Region

End Class
End Namespace
